home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / RKEY31QB.ZIP / DEMOAPPD.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-06-05  |  1.8 KB  |  45 lines
  1. ' DemoAppD - QuickBASIC / DOS version of the RegKey demonstration program.
  2. '            Demonstrates the use of file-based registration key validation
  3. '            within a program using the RegKey system. Displays one of two
  4. '            simple messages based upon whether or not the user is
  5. '            registered. To test in registerd mode, use KeyGen to generate
  6. '            a *.KEY registration key file for DemoApp, and place that file
  7. '            in the current default directory. To test in unregistered mode
  8. '            remove any valid *.KEY files from the current default directory.
  9.  
  10. ' The following line must appear in any program using RegKey
  11. ' $INCLUDE: 'regkeyqb.bi'
  12.  
  13.  
  14. DIM SHARED RegisteredMode AS INTEGER     ' Variable to store mode to operate in
  15. DIM SHARED RegistrationString AS STRING      ' To store name of registered user
  16.  
  17.  
  18.  
  19. ' Check for a valid registration key file
  20.  
  21. ' The following information is passed to the RegKeyFileValidate() function
  22. '    "*.KEY"             - Filespec of registration key file
  23. '    "0C9HMN1NDL"        - Application's validation code
  24. '    "Your Name", 0      - Your RegKey registration info
  25. '    RegistrationString$ - Where registration string will be placed
  26. '    255                 - Maximum size of registration string
  27. '    RegisteredMode%     - Where to store result of validation
  28.  
  29. Result = RegKeyFileValidate("*.KEY", "0C9HMN1NDL", "Your Name", 0, RegistrationString$, 255, RegisteredMode%)
  30.  
  31. CLS
  32.  
  33. IF RegisteredMode% = RKRegistered THEN
  34.    ' If we are operating in registered mode, display registered message
  35.  
  36.    PRINT "DemoApp is registered to: "; RegistrationString$
  37.    PRINT "Thanks for registering DemoApp!"
  38.  
  39. ELSE
  40.    ' If we are operating in UNregistered mode, display UNregistered message
  41.  
  42.    PRINT "DemoApp is NOT registered"
  43.    PRINT "Please remember to register DemoApp!"
  44. END IF
  45.